home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.2
/
Video Toaster v4.2.iso
/
arexx
/
cg
/
dos_command.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1995-01-05
|
551b
|
29 lines
/* Run AmigaDOS command from within CG
* By Arnie Cachelin © 1994 NewTek, Inc. */
call addlib(CG_AREXX,0)
filnam = 'ENV:DOS_Command.state'
version = 'DOS_Command v1.0'
if (exists(filnam)) then do
if (~open(state, filnam, 'R')) then break
if (readln(state) ~= version) then break
Cmd=readln(state)
end
call close state
Cmd=REQ_STRING("DOS Command:",Cmd)
if (open(state, filnam, 'W')) then do
call writeln state, version
call writeln state, Cmd
call close state
end
address command cmd
call remlib(CG_AREXX)
exit